home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 026-050 / scopedisk45 / simple / simple.txt < prev    next >
Text File  |  1995-03-18  |  1KB  |  24 lines
  1. /* sample.txed
  2. by Jim Ventola
  3.     This macro goes through a file in TxED+ and adds a message and a CR 
  4. at the end of every line.
  5.     It shows how to do a repeating operation on a text file until 
  6. the EOF. 
  7. Note: TxEd looks for macros in the Directory it was called from, so be
  8. sure to use full pathname to this macro if it is in another directory. */
  9.  
  10. X = 0             /* init x, which will hold system variable rc */
  11. OPTIONS RESULTS     /* this tells interpreter to request a result string
  12.              when it issues a command to a host (manual p32)*/
  13. TOP             /* cursor to top of file in TxEd */
  14. DO UNTIL X = 1         /* set up the loop */
  15. EOL             /* go to end of line */
  16. I "This is a test *N"     /*print message and then add a carriage return */ 
  17. D             /* cursor down a line */
  18. STATUS L         /* check to see what line we are on; 
  19.                 rc will be 1 at EOF */
  20. x = rc             /* set x to value of RC for loop to check 
  21.             for End of File */ 
  22. END
  23.  
  24.